home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / MathPad 2.4 / XFuns / XFun kit / mod src / mod.c next >
Encoding:
C/C++ Source or Header  |  1996-03-06  |  557 b   |  21 lines  |  [TEXT/CWIE]
  1. /* example of a very simple external function. */
  2.  
  3. #include "callback.h"
  4.  
  5. static short mod(double *retval,funptr callback)        /* called for each function evaluation. */
  6. {
  7.    int ok;
  8.    double a,b;
  9.    ok = GetParmVal(1,&a,callback);            /* 1st parm is 1 */
  10.    if(ok) ok = GetParmVal(0,&b,callback);    /* 2nd parm is 0 */
  11.  
  12.    if(ok) *retval = a - (long)(a/b) * b;
  13.    return(ok);
  14. }
  15.  
  16. main(funptr callback)            /* called on application startup */
  17. {
  18.     /* provide function name, formal parm list, entry point and predef entry */
  19.     AddXfun("mod","a,b",&mod,NULL,callback);
  20. }
  21.